* which-key.el (which-key--create-pages-1): Use cl-decf for clarity

diff --git a/which-key.el b/which-key.el
index decde2d10bdfb336142a58380f906b513644cc25..8837eefd43cb666ece1b0514a3c1cf7020b2344c 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -2077,7 +2077,7 @@ should be minimized."
       ;; simple search for a fitting page
       (while (and (> available-lines min-lines)
                   (not found))
-        (setq available-lines (- available-lines 1)
+        (setq available-lines (cl-decf available-lines)
               prev-result result
               result (which-key--list-to-pages
                       keys available-lines available-width)